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«REM % 


IDENTIFICATION 


PRODUCT CODE:  AC-86688-MC 

PRODUCT NAME:  CZDRIBO DR11A DEV REG TEST 
DATE: MARCH 1979 

MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE 
Save 1 atieae BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
Oe amaatiel OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1976,1979 BY DIGITAL EQUIPMENT CORPORATION 
MAYNARD ,MASSACHUSE TTS 


SEQ 0001 
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ABSTRACT 

tiolate Otte SNE Ril RS 2 nacre 
(M980). THIS TEST WILL CHECK UP TO 32 SEQUENTIAL DR11A°S. 
THIS PROGRAM HAS BEEN RENAMED FROM D8L TO DZDRI. 
REQUIREMENTS 

EQUIPMENT 

PDP-11 STANDARD COMPUTER 

DR11A 

M980 FOR EACH DR11A 

STORAGE 


PROGRAM STORAGE = THE ROUTINE USES MEMORY 
FROM 0000 10 5000. 


LOADING PROCEDURE 

ME THOD 

PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED. 
STARTING PROCEDURE 

CONTROL SWITCH SETTING 


STARTING AT SA 200 ALL SWITCHES SHOULD BE DOWN OR ZERO. 
(IF NOT ZERO, BIT 0 TO 8 WILL BE STARTING VECTOR.) 


STARTING ADDRESS OR ADDRESSES 
(A) 200 = START OF TEST 
PROGRAM AND/OR OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY. 
SET SWITCH REGISTER TO STARTING ADDRESS. 
LOAD ADDRESS. 
SET SWITCH REGISTER EQUAL TO FIRST DR11A INTERRUPT VECTOR. 
PRESS START. 
THE PROGRAM WILL STAY IN SECTION AND LOOP. 
IF SWITCH REGISTER EQUALS ZERO, 300 IS SELECTED AS THE VECTOR. 
ON A RESTART, THE PREVIOUSLY SELECTED VECTOR WILL BE USED. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 
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5.1.1 AT_SA 200..THE INSTRUCTION AND LOGIC TEST. 
a en tence rae DOWN THE PROGRAM WILL PRINT 


OR UP ... HALT ¥ ERROR 
oP 


OR 

OR PRINTOUT 

OR --.- INHIBIT TRACE TRAPPING 

OR .-- INHIBIT ITERATION LOOP 

WILL BE USED AS VECTOR ADDRESS IF NOT ZERO. 


SUBROUTINE ABSTRACTS 
BEGIN SA 200 


THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST 

IN THE INSTRUCTION SECTION. IT RECORDS THE STARTING 
ADDRESS OF EACH SUB-TEST AS IT IS BEING > tats 

IF A SCOPE LOOP IS REQUESTED, IT WILL JUMP TO THE 

START OF THE SUBTEST THAT THE SCOPE LOOP IS REQUESTED FOR. 


HALT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Non a SS oS SO 
-OVOWDNAUESWN-OO 


IS_A_ ROUTINE THAT PRINTS-OUT AN ADDRESS THAT TAGS 
THE FAILING SUBTEST, AND THE INCORRECT DATA AT THE 
TIME OF THE FAILURE. 


PROGRAM AND/OR OPERATOR ACTION 


LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN 

IS THE INSTRUCTION AND LOGIC TEST. IF AN ERROR 

IS DETECTED HERE, THERE WILL BE A PRINTOUT. WHEN 

AN ERROR IS DETECTED AND IT IS NECESSARY TO SCOPE 

ON it» PLACE SW15 UP TO HALT ON ERROR, THEN SW14 
UP TO LOOP ON ERROR, THEN SW13 UP TO DELETE PRINTOUTS. 


ERRORS 
ERROR PRINTOUT 

ARE IN A FOUR WORD FORMAT. THE 1ST IS THE PC+2 OF 
THE DETECTED ERROR. THE 2ND IS THE PROCESSOR STATUS 
REGISTER. THE 3RD IS DEVICE ADDRESS. THE 4TH IS 
VECTOR ADDRESS. 


ERROR RECOVERY 


RAKUNLS 


—_— SV eS es oes oe ot St 
lw 
“— 


2598 





-MAIN. MACY11 30A(1052) O6=MAR=79 14:52 PAGE 5 
CZDRIB.P11 O6-MAR-79 14:47 


DEPRESS CONTINUE TO RESTART SECTION 

RESTRICTIONS 

STARTING RESTRICTION 

NONE 

OPERATIONAL RESTRICTION 

Ha Bayt Ba HAVE THE M980 MAINTENANCE MODULE TO RUN 


NOTE THAT THE DR11A HAS FLOATING VECTORS: 


THE BELOW IS THE ASSIGNMENT OF FLOATING VECTORS, THE ASSIGNED 
SEQUENCES ARE: 


1. STARTING AT 300 ALL DC11"S WILL BE ASSIGNFD. 

THEN ANY KL11 CALLED FOR (VT05, VTO6, LC11) 

THEN ANY DP11 CALLED FOR. 

THEN ANY DM11 CALLED FOR. 

THEN ANY DN11 CALLED FOR. 

THEN ANY DM11BB CALLED FOR. 

THEN ANY DR11A CALLED FOR. 
THE _DR11A DEVICE ADDRESS WILL BE ASSIGNED IN THE USER AREA 
OF 767776 TO 764000. THE ASSIGNMENT OF ADDRESS WILL START 
AT THE HIGH ADDRESS |.IMIT AND PROCEED DOWNWARD. USERS AND 
SPECIAL SYSTEMS SHOULD START THEIR ASSIGNMENT OF SPECIAL 
DEVICES AT THE LOW ADDRESS LIMIT AND WORK UP. 


767776 TO 767770 DR11A #0 
767766 TO 767760 DR11A #1 


767706 TO 767700 DR11A #7 


767606 TO 767600 DR1I1A #15 
MISCELLANEOUS 

EXECUTION TIME 

FOR EACH DR11A ABOUT 2 MINUTES 
UNTESTED LOGIC 
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10. 
TT. 


THERE ARE TWO FUNCTIONS NOT TESTED. 

PROGRAM DESCRIPTION 

THIS PROGRAM WHEN STARTED AT 200 CHECKS THE SWITCH 

REGISTER FOR ALL_ ZEROS, IF NOT ZEROS THE BITS 0-8 ARE USED 
AS THE FIRST VECTOR ADDRESS OF THE DR11A°S. 


THE PROGRAM THEN PERFORMS AN INCREMENTAL LOGIC CHECK FOR 
THE SELECTED DR11A. 


THE DATA REGISTER IS TESTED TO SEE IF ‘RESET’’ CLEARS IT. 
IF IT WILL HOLD ALL COMBINATIONS OF NUMBERS. 


THE READ/WRITE BITS OF THE STATUS REGISTER ARE ALSO TESTED. 


BOTH THE ‘‘A'' AND ‘B’' INTERRUPTS ARE TESTED TO SEE IF THEY 
INTERRUPT AT THE CORRECT BUS REQUEST LEVEL BR-5. 


ONE FULL TEST OF THE DR11A_ IS MADE WITH THE T BIT OFF. 
THE SECOND PASS IS MADE WITH THE T BIT ON. 


AT THE END OF THE SECOND PASS THE DEVICE ADDRESS IS 
INCREMENTED BY 10, AND THE VECTOR POINTER IS DECREMENTED 

Y 10. THEN A TEST IS MADE TO SEE IF THERE ARE ANY MORE 
DRIIA’ S_ AND THE PROGRAM WILL RESTART AND RESET THE VECTOR 
AND ADDRESS FOR RETESTING THE SERIES OF DK11A. 


IF A POWER FAIL OCCURS THE PROGRAM WILL REPORT IT 
AND RESTART AT THE BEGINNING OF THE PROGRAM. 


LISTING 
FLOW CHART (S) 
% 


SEQ 0005 
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GENERAL REGISTER LOGIC TEST 
STATUS=177776 

NOP=240 

SCOPE = rth oad 


: TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
3 TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
3; TRAPPED 


PREVIOUS 
PFEVIOUS 
PREVIOUS 
PREVIOUS 
PR-VIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 


LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
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298 
299 


301 
302 
303 


SSSsss 


WNWAWWG 
USWN oO 


009000 
000142 
000000 
000146 
000000 
000152 
000000 
000156 
000C00 
000162 
000000 
000166 
000600 
000172 
000000 
000176 
000009 
000202 
000000 
000206 
000000 
000212 
000000 
000216 
000000 
000222 
000000 
000226 
000000 
000232 
000000 
000236 
000000 
000242 
000000 
000246 
000000 
000252 
000000 
000256 
000000 
000262 
000000 
000266 
000000 
000272 
000000 
000276 
000000 
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; TRAPPED 
; TRAPPED 
3 TRAF ED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
>; TRAPPED 
; TRAPPED 
>; TRAPPED 
; TRAPPED 
; TRAPPED 


TRAPPED 1 


; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 


TO PREVIOUS 


PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 


LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
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000000 
000322 
000000 
000326 
000000 


; TRAPPED 
; TRAPPED 
; TRAPPED 
3 TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
3 TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
3 TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 


PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 


LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
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; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
3 TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 


.¢ TRAPPED 


; TRAPPED 
; TRAPPED 


TO 
TO 
TO 
TO 


PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 


LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 


SEQ 0009 
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466 000656 000000 HALT ; TRAPPED TO PREVIOUS LOCATION 
467 000660 000662 +2 
468 000662 000000 HALT TRAPPED TO PREVIOUS LOCATION 
469 000664 000666 .+2 
470 000666 000600 HALT TRAPPED TO PREVIOUS LOCATION 
471 000670 000672 +2 
472 000672 000000 HALT ; TRAPPED TO PREVIOUS LOCATION 
473 000674 000676 .+2 
474 000676 000000 HALT ; TRAPPED TO PREVIOUS LOCATION 
475 000700 000702 .+2 
476 000702 000000 HALT ; TRAPPED TO PREVIOUS LOCATION 
477 000704 000706 +2 
478 000706 900000 HALT ; TRAPPED TO PREVIOUS LOCATION 
479 000710 000712 .+2 
480 000712 000000 HALT ; TRAPPED TO PREVIOUS LOCATION 
481 00071% 0600716 .+2 
482 000716 000000 HALT ; TRAPPED TO PREVIOUS LOCATION 
483 000720 000722 .+2 
484 000722 000000 HALT ; TRAPPED TO PREVIOUS LOCATION 
485 000724 000726 +2 
486 000726 (00000 HALT TRAPPED TO PREVIOUS LOCATION 
487 000730 (00732 .+2 
488 000732 600000 HALT ; TRAPPED TO PREVIOUS LOCATION 
489 000734 000736 .t+2 
490 000736 000000 HALT TRAPPED TO PREVIOUS LOCATION 
491 000740 000742 .+2 
492 000742 000000 HALT ; TRAPPED TO PREVIOUS LOCATION 
493 000744 000746 .+2 
494 000746 000000 HALT ; TRAPPED TO PREVIOUS LOCATION 
495 000750 000752 .+2 
496 000752 000000 HALT 7 TRAPPED TO PREVIOUS LOCATION 
497 000754 000756 .+2 
498 000756 000000 HALT 7 TRAPPED TO PREVIOUS LOCATION 
499 000760 000762 .+2 
500 000762 000000 HALT TRAPPED TO PREVIOUS LOCATION 
501 000764 000766 .+2 
502 000766 000000 HALT 7 TRAPPED TO PREVIOUS LOCATION 
503 000770 000772 .+2 
504 000772 000000 HALT ; TRAPPED TO PREVICUS LOCATION 
505 000774 000776 .+2 
206 000776 000000 HALT ; TRAPPED TO PREVIOUS LOCATION 
208 ; TRAPPED TO PREVIOUS LUCATION 
ay ; TRAPPED TO PREVIOUS LOCATION 
512 30 = 
513 30 003510 PRINT 
514 000032 0 40 
515 34 004220 SCOPEC 
516 000036 000340 
517 
518 
519 000046 .=46 
20 000046 003464 $SENDAD 


MACY11 wid 
Pil 0o 


000052 


—MAR-79 
000052 
040000 


000200 
000167 
001000 


167770 


167772 
000300 
000302 
000304 


000000 
000240 


06-MAR-79 
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40000 


-=200 
JMP BEGINA 
-=1000 


: THESE ADDRESSES AND VECTORS ARE MODIFIED BY THE PROGRAM. 


: 147770 


10: 
: 167772 


: 300 
: 302 
304 


0 
240 
ADDRESS AND VECTORS 


HBLFF ,.%6 
#BEGIN,RETURN 
SAVR6 


cd 


17674C #12,10 
176726 46,4 


177710 


177670 


177630 DR11B: 


177604 177600 


090006 176560 
000100 003036 


177576 


TRPB 
#CSR,GRSTAT 
#CSR+2,GRD10 
#CSR+4,GRDAI 
#CSR+3,GRBHIO 
oh 


a¥sR, 

x0 

DR11B 
#177000,%0 
%0,DR11B+2 
(0) + 
%0,DR11B+10 
(05+ 
%0,DR11B+16 


#300,GRIVA 
#302.GRIVSA 
#304; GRIVB 


DR11C: MOV MEJFF ,%6 
DOES RESET CLEAR REGISTER? 
BEGIN: SCOPE 
GRIVSA,@GRIVA 
@GRIVSA 


#6,4 
#100, ICOUNT 


sSTATUS (DONE) 

DATA REGISTER 

FROM OUTSIDE WORLD TO DATA REGISTER 
HIGH BYTE OF DATA REGISTER 

DATA REGISTER 


: INTERRUPT VECTOR OF UNIT UNDER TEST 
: INTERRUPT STATUS ADDRESS 
: INTERRUPT VECTOR 


COUNT LOCATION 
sPRIORITY LEVEL 


SET UP STACK 


: SAVE ok STACK ON OVERLAY 
:FOR T TRAP 

FOR ig OUT 

:"'T'' FLAG 


:VECTOR ADDRESS FROM S 
:1F ZERO USE 300 ON PREVIOUS VALUE 


USE ONLY BIT 0 TO 8 


SET UP FROM SWITCH REGISTER 


SET UP STACK 


SET UP FOR FALSE INTERRUPT 


CLEAR DATA REGISTER 


SEQ 0011 
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578 001234 017700 177550 MOV @GRDAIO, %0 
379 001240 001401 BEQ +4 
581 001242 104000 HLT :DATA REGISTER NOT CLEAR 
282 ;REGISTER NOT ZERO 
584 001244 104400 SCOPE 
585 001246 012/67 000 003014 MOV #4000, I COUNT 

001254 012777 177777 177520 MOV #-1, aGRDIO ZALL ONES TO REGISTER 
587 001262 017700 177514 MOV @GRD10, %0 

66 022700 177777 CMP #-1,%0 

589 001272 001401 BEQ +4 
390 001274 104000 HLT ;REG WILL NOT HOLD ONES 
592 001276 104400 SCOPE 
593 001300 012767 000100 002762 MOV #100, 1 COUNT 
594 001306 012777 177777 177466 MOV #-1,aGRDIO 
595 001314 000005 RESET :SET DATA TO ALL ONES 
596 001316 005777 177466 TST @GRDAIO SSHOULD CLEAR REGISTER 
597 001322 001401 BEQ +4 
598 001324 104000 HLT :REG FAILED TO CLEAR 
600 001326 104400 SCOPE 
601 001330 012767 004000 002732 MOV #4000, ICOUNT 
602 001336 012777 052525 177436 MOV #52503, @GRDIO 
603 001344 017700 177432 MOV GRDIO.%0 

001350 022700 052525 CMP #2523, 20 
605 001354 001401 BEQ 
606 001356 104000 HLT SDATA WOT=52525 
608 001 104400 SCOPE 
609 001362 012777 125252 177412 MOV #125252, aGRDIO 
610 001370 017700 177406 MOV @GRDIO, £0 
611 001374 022700 125252 CMP #125252, %0 
612 001400 001401 BEQ +4 
613 001402 104000 HLT :DATA NOT=125252 
614 ; INTERRUPT ENABLE BIT TEST 
615 001404 052767 000340 176364 BIS , #340, STATUS ;LOCK OUT INTERRUPTS 
617 001414 012777 000140 177356 MOV ' #140, aGRSTAT : INTERRUPT ENABLE FOR A+B 
618 001422 017700 177352 MOV QGRSTAT, %0 
619 001426 022700 100340 CMP #100340, %0 ;ENABLE BITS PLUS READY BITS 
620 001432 001401 BEQ +4 
621 001434 104000 + HLT 
623 001436 104400 SCOPE 
624 001440 012767 000010 002622 MOV #10, 1COUNT 
625 001446 012777 000140 177324 MOV #140, aGRSTAT SET INTERRUPT ENABLE FLOPS 
626 001454 000005 RESET *CLEAR THOSE FLOPS 
627 001456 017700 177316 MOV @GRSTAT,%0 “TST % OR 
628 001462 001401 BEQ +4 

001464 104000 HLT ;RESET DID NOT CLEAR INTERRUPT ENABLE BITS 


632 001470 005067 002574 CLR I COUNT 
633 001474 005067 177320 CLR COUNT 


-MAIN. MACY11 30A(1 
06-MAR 


CZDRIB.P11 


BESRSRREEES 


016 
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777 


017700 
0067 


177314 
177270 
177302 


177272 


177777 


177130 


177134 


177122 
177071 
000340 


004000 
177024 
177022 
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177302 =TST1: 


177240 


002500 


177202 


177144 


177100 


176034 


002316 
177016 


TEST FOR ALL NUMBERS (WORD) 
;GOOD=COUNT, BAD=%0 


+4 

TST1 
#-1,aGRDIO 
a@GRbIO 
@GRDIO, %0 
#177400, %0 


+4 


CLEAR LOW BYTE 


sBYTE LOW FAILED TO CLEAR 
#4000, ICOUNT 


#-1 ,aGRDIO 
@GRBH10 


@GRDIO, %0 
#377.20 


+ 


:CLEAR HIGH BYTE 


HIGH BYTE CLEAR FAILED 


: INCREMENT LOW ORDER BYTE 
: INCREMENT REFERENCE BYTE COUNT 


:BAD DATA IN DATA REGISTER 


: INCREMENT HIGH BYTE 


HIGH BYTE HAS BAD DATA 
_— 
+ 


TST3 
#340, STATUS 

; TEST EXTERNAL TRANSFERS = CABLE MUST BE CONNECTED 
#4000, 1 COUNT 
@GRDIO 
OGRDAI ,@GRD1O :TEST TRANSFER OF ZERO 
+ 


SEQ 0013 
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177777 
177000 
177777 


002242 


176746 
176744 
176734 


176720 


004000 


000200 


176630 
002176 
0000 


176600 


176564 
000140 
176552 
176542 


177002 
176774 
176766 


176740 


002174 


176700 
176660 


176644 


176636 
176612 


176554 


TST6: 


TST7¢: 


ABC: 


TST8: 


TST9: 


14:52 PAGE 15 


#~1 ,aGRDIO 
aGRbAT. @GRDIO 
my , GRD 10 


I COUNT 
%0 


%0,aGRDIO 
@GRDAI , AGRDIO 
0 DIO 


eo 


x0 

TST7 

@GRDIO 

TST6 
#4000, 1 COUNT 
@GRD1O 
STATUS 
#ABC,AGRIVA 
#100. aGRSTAT 
acrDio 

TST8 

#200, @GRDIO 
+4 


@GRDIO 
ADEF ,aGRIVB 
440, aGRSTAT 
aGRBHIO 
TST9 

@GRDIO 

+4 


aGRDIO 
#140 ,aGRSTAT 
@GRDIO 


@GRSTAT 


sPICKED UP A BIT 


MOV ALL ONES 


:DROPPED A BIT 


TEST ALL NUMBERS 


sERROR - CHECK %0 FOR GOOD 
:GRDIO FOR BAD 


sTEST INTERRUPT A 


INTERRUPT A FAILED 
;CHECK = WORD OR BYTE 


:TEST INTERRUPT B 


; INTERRUPT B FAILED 
CHECK WORD OR BYTE 


TEST COMBINED INTERRUPTS 


SEQ 0014 
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005977 


06-MAR-79 
14:47 


177777 
176532 
176530 
177777 


176502 


176470 


000100 
175426 


176420 
176430 


004650 
000340 
002430 
000040 
000377 


176344 


176536 


176534 


175452 


176454 
176434 


177776 


14: 
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#-1,aGRDIO 


MOV 
: TEST oa BLACK BOX (NOT CONNECTED) 


MOV @GRDAI , AGRDAIO 
MOV 8 


sREADY BIT IS IN A ONE STATE 


SCOPE 
TST @GRSTAT 
BMI +4 


HLT 

SCOPE 

TSTB @GRSTAT 
BMI +4 

HLT 


:CAN WE RAISE INTERRUPT ‘‘A’' 
SCOPE 

BIS rea STATUS 
#BUFF , 

MOV #TST4,aGRIVA 


MOV #100, aGRSTAT 
CLR STATUS 


TST4: CLR @aGRSTAT 
MOV GRIVSA,@GRIVA 
RAISE INTERRUPT 'B"' 
SCOPE 


MOV F,%6 
BIS #340 STATUS 
MOV #7ST5,aGRIVB 


MOV #40, aGRSTAT 
BIC #377, AASTATUS 
NOP 
HLT 
TSTS: CLR @GRSTAT 
1VA=GRIVA 
CSR=GRSTAT 
IVS=GRIVSA 


TEST FOR INTERRUPT Rin DEVICE 
MOV a” 


vs 

BIC #340, STATUS 

MOV #TINT1 alVA 
#BUF F 


UF F 
BIC #100,aCSR 
BIS #100, aCSR 


sREG 0 SHOULD 


STATIC LINES EQUAL ONES 
sDATA REGISTER TO %0 


= ALL ONES 


TEST BIT 15 
3NO READY BIT 0 


TEST BIT 7 


sNO READY BIT A 


:LOCK OUT INTERRUPTS 


INTERRUPT RETURN POINTER 
: INTERRUPT ENABLE 


3NO ‘‘A'' INTERRUPT 


V .+2 TO ‘'A'' INTERRUPT VECTOR 


3NO B INTERRUPT 


PROCESSOR LEVEL ZERO 


STACK POINTER 
:CLEAR INTERRUPT ENABLE 
7SET INTERRUPT ENABLE~ 


NO DEVICE INTERRUPT OCCURED 


SEQ 0015 
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TINT1: SCOPE 
: TEST FOR INTERRUPT FROM THE DEVICE 
BIC #340,STATUS 


#040, STATUS SET TO PRIORITY LEVEL 1 
ATINT2,a1VA : INTERRUPT VECTOR ADDRESS 
FF, ;SET UP STACK POINTER 
#100,aCSR [CLEAR INTERRUPT ENABLE 
#100,@CSR 7SET INTERRUPT ENABLE- 


NO DEVICE INTERRUPT OCCURRED 


#340, STATUS 

#100, STATUS SET TO PRIORITY LEVEL 2 
ATINT3,QI1VA : INTERRUPT VECTOR ADDRESS 
BUFF ,%6 SET UP STACK POINTER 
#100,aCSR :CLEAR INTERRUPT ENABLE 
#100,aCSR 7SET INTERRUPT ENABLE- 


NO DEVICE INTERRUPT OCCURED 


TINT3: SCOPE 
:TEST FOR INTERRUPT FROM THE DEVICE 
BIC #340, STATUS 


#140, STATUS SET TO PRIORITY LEVEL 3 
#TINTS IVA INTERRUPT VECTOR ADDRESS 
#BUFF ,%6 SET UP STACK POINTER 
#100,a@CSR ;CLEAR INTERRUPT ENABLE 


#100,aCSR SET INTERRUPT ENABLE- 


sNO DEVICE INTERRUPT OCCURED 
TINT4: 


TEST FOR INTERRUPT FROM DEVICE 
175074 BIC #340,STATUS 
175066 #200, STATUS RAISE PROCESSOR PRIORITY TO LEVEL 4 
176074 #TINTS ,@IVA UPT 


MOV BUFF ,%6 
176050 #100,aCSR 
176042 ats #100,aCSR 


:LET INTERRUPT OCCUR 
176032 ais #100,aCSR 


NO DEVICE INTERRUPT OCCURED 


TINTS: SCOPE 
; TEST FOR NO INTERRUPT FROM DEVICE (HIGHEST PROCESSOR PRIORITY) 
BIS #340, STATUS ;RAISE PROCESSOR PRIORITY TO HIGHEST LEVEL 

ATINT6, IVA SIN CASE OF INTERRUPT 
#BUFF , £6 'SET STACK POINTER 
#100, aCSR [CLEAR INTERRUPT ENABLE 
#100. aCSR 
#100. aCSR :DON'T LEAVE IT SET 


+4 WITH NO INTERRUPT, BRANCH OVER HALT 
: INTERRUPT OCCURED 
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858 
859 TEST FOR NO INTERRUPT FROM DEVICE 
BIC 40, STATUS 
#240, STATUS +RAISE PROCESSOR PRIORITY TO LEVEL 5 
ATINT7,@IVA RRUPT 
BUFF ,%6 
#100,aCSR 
#100,aCSR 
#100,aCSR :DON'T LEAVE IT SET 


BR +4 WITH NO INTERRUPT, BRANCH OVER HALT 
TINT?: : : INTERRUPT OCCURED 


TEST FOR NO INTERRUPT FROM DEVICE 
174662 BIC #340,STATUS 
174654 #300,STAIUS RAISE PROCESSOR PRIORITY TO LEVEL 6 
175662 aTINTS @IVA SIN CASE OF INTERRUPT 
ABUFF , SET STACK POINTER 
175636 #100,aCSR :CLEAR INTERRUPT ENABLE 
175630 #100,aCSR +38 al re ENABLE 
175622 aks #100,aCSR T LEAVE IT SET 


+4 sWITH NO INTERRUPT, BRANCH OVER HALT 
; INTERRUPT OCCURED 


175616 GRIVSA,@GRIVA ;FOR FALSE INTERRUPT 
aGRIVA 
MYESRT,14 
TRPB 


:GO TO BEGIN ON TIME QUT 


CHANGE TO LAST VECTOR FOR OVERLAY 


@ABEGINA 
SAVR6, %6 sRESTORE OLD STACK 
CHANGE TO RTI ON OVERL 
@GRSTAT ‘rome OUT IF NON EXISTENT-RESTART PROGRAM 
rh att ;FOR POWER FAIL SET UP 
L 


—W NOM 
Neo FS 


BELL: 
;BELL ON PASS COMPLETE 
MOV #207, aTDBR 
aTCcSR 


000000 MOV #0, aTDBR 
oNe7 arcsR 
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06-MAR-79 
100375 
012767 
006701 
000240 
012767 
000403 
012767 


921 003420 012767 


g 
oO 
MN 


Ww 
“N 
An 


ReSORe 
= -2 
S8oR 
ay 
MOMn 


Pie alin 14: 
4:47 


003412 


000006 
000002 
000012 


010000 
000036 
000020 
000042 


001202 
174054 


009160 
000156 


000144 


174412 
000074 


000064 
174362 


174132 


020000 


000116 


000056 


52 PAGE 19 
BPL 7-4 

SBELL: MOV #BEG20,10 - :SET_UP_ RESERVED INSTRUCTION 
oy sATTEMPT TO EXECUTE SIGN EXTEND 
MOV #6,YESRT NO TRAP, PROCESSOR IS NO =20 
BR BEGANY 

BEG20: MOV #2,YESRT ; TRAP OCCURED 


BEGANY: MOV #12,10 RESTORE HALT FOR RESERVED INC 
ROUTINE TO CHECK FOR TRACE TRAP’ TO BE RUN WITH PROGRAM 


;SAVE OLD CONTENTS, SET UP FOR TRACE TRAP 
YESTR: CLR (6) 
BIT #10000, SR 


BNE YESTR 
COM Rea 
BPL +10 
MOV #20, (6) :SET TRACE TRAP 
YESTR1 
MOV a#42,R0 
EQ YESTR1 
RESET 
SENDAD: JSR 7, (RO) 
NOP 
NOP 
NOP 
YESTR1: MOV #BEGIN,-(6) ZSTART OF TEST WITH TRACE ON 
YESTR2: RTI 
TRPB: 0 
YESRT: vty sRETURN TO PROGRAM FROM TRAP 


HALT sRTI FAILED 
sENTERED WITH SYSTEM TRAP CALL (HLT) 
:PRINT OUT THE ERROR PC AND STATUS REGISTER 
PRINT: BIT SR 420000 TEST FOR INHIBIT PRINT OUT 


BEQ +6 ‘BRANCH TO PRINT 
RTI T INHIBIT, RETURN TO MAIN STREAM 
MOV (6) +, SAVPC [PC OF FAILING ROUTINE 
MOV (6) +, SAVCC =CC OF ERROR CONDITION 
CMP -(6).=(6) TREPOSITION THE STACK 
TSTB ~— aTCSR ‘WAIT FOR FLAG 
BPL a4 ‘IF NOT UP. 
V #215, aTDBR :CR 
TSTB. ~— aTCSR 
BPL ad 
MOV #212, aTDBR ZLINE FEED 
‘ -TSTB-~—Ss TCR 

BPL . -4 
MOV %2, SAVR2 :SAVE R2 
MOV %3. SAVR3 “SAVE R3 

gy %4° SAVR4 SSAVE R4 
MOV “~~ SAVPC,%2 
JSR %17.PRTAB :PRINT OCTAL NUMBER 
MOV #240, aTDBR 
TSTe arcsk :SPACE BETWEEN WORDS 


MOV SAVCC, %2 
JSR %7,PRTAB :PRINT OCTAL NUMBER 


SEQ 0018 
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004767 000472 %7 ,MORE ID DEVICE ADDRESS AND VECTORS 
016702 000022 SAVR2,%2 RESTORE REGISTERS 


016703 000020 SAVR3,%3 
016704 000016 SAVRG ,%4 
005767 173702 SR sTEST FOR HALT SWITCH 
100001 +4 

sHALT ON ERROR SET 
SRETURN TO MAIN STREAM 


BINCT 

WGTCT 

MLIST 24 GET LIST ADDRESS 
000236 #5 ,ASCNT 
000220 #7, SEVEN 
000214 #1 ,DECML 

aTCSR 

_ 


NEG SIGN PRINT 1 
PQS SIGN PRINT 0 


MINUS 
177712 #260, aTDBR 
TAR 


BR S 
177702 : #261, aTDBR 
: SEVEN, %3 zPUT MASK IN R3 
of 2 -TOODLE GET READY TO DOODLE NUMBER IN TOODLE 


eS ie ere FOR COMPLEMENT DURING BIC 


8 


at cat ced ced nh ca ce cand ced end a 
lelelelelelelealelele) 
ab oh oh od nd oe eh eh dd 
WONAUSWR—O 


000136 


000120 


000102 


000050 


000044 


TOODLE. 243 
DECML ,WGTCT 
BINCT 
WGTCT,%3 
MKNUM 

#260, ,BINCT 
BINCT,(4)+ 
SEVEN, DE CML 
WGTCT 

BINCT 

ASCNT 

XLIST 

#3 ,%3 
SEVEN, SEVEN 
23 

MOADD 

STAR 

#5 ,ASCNT 


ID IN OCTAL CHARACTER 


i JERO, WRITE 0 IN LIST 
; t UP 


> COUN TO 

AND RECORD 

SAME BINARY WEIGHT 

KEEP COUNTN 

sADD_ASCII PREFIX 

WRITE ASCII CHAR IN LIST 
EXPAND BINARY WEIGHT 


35 CHAR IN LIST 
:SET X3 FOR ADD LOOP 
SMAKING SEVENTY BY SEVEN 


NX SEVEN SET a A OCTAL 
:SEND 5 CHAR TOT 


ENRSSRVR 


000005 : MOV 
177552 : Z he: 
WAI 
014477 177542 -(4) ,aTDBR 
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004140 005367 000026 DEC 
004144 1 BEQ FINISH PRINTING GET NXT NUM 
004146 BR 


105777 177530 HDFHM: TSTB @TCSR 
100375 BPL Pe 

000207 RTS 47 sHEAD FOR HOME 
000000 TOODLE : 


VSARNORERSERS 


LOOP ROUTINE ENTERED BY USER TRAP 
B: CMP (6)+,%6 REPOSITION THE STACK 
173562 MOV (6)+,CC 
000054 @RE TURN SCOPE RETURN 
OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES 
040000 173342 SCOPEC: BIT #40000,SR sess eo SCOPE 


BN SCOPEB 
004000 173332 #4000,SR sNO = TEST FOR ITERATION 
: INHIBIT ITERATION 


~ DONE 


SCOPEA 
000026 000022 SCOPEF  ICOUNT sad 
000016 SCOPEF + INCREMENT COUNT 


BR se :LOOP SOME MOR 
000010 SCOPEG: 
000006 


SCOPEF :CLEAR COUNT 
SCOPEA: @%6,,RETURN SAVE SCOPE RETURN POINTER 
sRETURN INLINE-NEXT TEST 


:COUNT LOCATION FOR ITERATION LOOP 
: sADDRESS OF LAST TEST 
173676 MP 200 


OF NESTED SUBROUTINES 

: RTS %7 ONE INSTRUCTION 
47 :ONE DEEP 
177770 : oat TWO DEEP 
177766 : aaa : THREE DEEP 
177766 : 55° Sua FOUR DEEP 
177766 : - %7,,SUBRS FIVE DEEP 
sPRINT DEVICE ADDRESS AND VECTOR 
240 177334 MOREID: MOV #240, aTDBR 


000 
177332 TSTB aTCSR 
BPL 274 
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1083 
1084 
1085 


1086 
1087 


1 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 


$3 


RARAVISYSBVAGRAVVS SHVRARAVASSSLRARALLS 


1 
1 
1 
] 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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WN 
N 
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016702 174420 GRSTAT ,%2 
004767 177326 %7,PRTAB 
012777 000240 177310 #240, aTDBR 


105777 177306 aTCSR 
174406 GRIVA, %2 

177302 %7,,PRTAB 

%7 ;BACK TO PRINT 


ENTER HERE OR POWER FAIL 


PFAIL: ;SAVE REGISTER OR STACK 
MO WHEN POWERING DOWN 


000010 STORE STACK POSITION 
004450 173360 
HALT ON POWER 7 NORMAL 
SAVR6: STACK IS SAVED H 
177772 RESTART :MOV SAVR6 , %6 SRESTORE REGISTER OFF STACK 
173344 MO 2 [WHEN POWERING UP 


MOV 
MOV 
MOV 
MOV 
173372 MOV 
MOV %6, SAVR6 
MOV #RESTART ,24 
rr 


(6)+,%0 
BEGIN 


sPOWER FAIL OCCURRED 
RETURN TO MAIN LINE 


125252 B: 125252 
:FIXED VALUES FOR USE IN TEST 


004504 B 
052525 052525 
.=B+10 
A: 


ADDRESS OF B 


-=At4 
;ADDRESS OF A+10 


sADDRESS OF C 


sADDRESS OF TEMP 


SEQ 0021 





s 
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004544 .=TEMP+6 

004544 004546 TEMP+10 ;ADDRESS OF TEMP+10 OR ‘D'' 

004546 000000 D: 
004650 .=.4100 

004650 BUFF : 

004650 000000 FIN: 0 BUFFER FOR SP 


000001 . END 


K 2 
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CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0023 
1126 1128 
1022* 1026* 10384 
1122 


939 1063 1114 
889 0 


1014s 
797 


9884 1083 
1105 
1047 1059* 10634 
968 9864 


8 
963 9854 
971 9804 
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SAVR3 003676 961* 973 9814 
SAVR4 003700 962* 974 9824 
SAVR6 004446 549* 901 1101* 
SBELL 003370 905 9154 
SCOPE = 1044 2464 572 584 
685 692 6 
823 833 846 
SCOPEA 004262 1053 10594 
SCOPEB 0042 10454 051 1057 
SCOPEC 004220 515 10504 
SCOPEF 004272 1054 1056* 1058* 
SCOPEG 004256 1055 10584 
SEVEN 004162 992* 1001 101e 
R = 177570 2498 558 926 
AR 004 999 10014 1021 
STATUS= 177776 2444 248 615* 
815* 825* 826* 
SUBR1 004302 10674 
SUBR2 004 10684 1070 
SUBR3 004310 10704 1072 
SUBR4 004316 10724 1074 
SUBRS 004324 10744 1076 
SUBR6 004332 10764 
TCSR 0037 910 913 952 
TDBR 003702 909* 912* 954* 
TEMP 5 11354 1136 1138 
TINT? 002502 796 8024 
TINT2 002552 807 8134 
TINTS 002622 816 8234 
TINTS 002672 827 8334 
TINTS 002752 838 8464 
TINT6 3022 849 8564 
TINT? 003102 862 8594 
TINTS 003162 875 8824 
TOODLE 0041 1002* 1003* 1004 
TRPB 003502 552* 887 928* 
Toi? 001500 6344 641 
TST2 1636 6634 670 
TST3 001702 6744 681 
TST4 002354 771 777# 
TST5 002430 783 7884 
TST6 002030 7024 710 
TST7 002074 708 7144 
TST8 002146 720 7284 
TST9 002212 733 7414 
WAIT1 003750 9944 995 
WAIT2 004126 10234 1024 1028 
WGTCT 004166 989* 1006* 1008 
WRT 004042 1005 10104 
MLIST 004120 1016 10224 
YESRT 003504 886 918* 920* 
YESTR 3426 9254 
YESTR1 003474 927 931 933 
YESTR2 003500 9404 
ND 0034 520 9354 
° = 004652 251 253 255 
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26 
CROSS REFERENCE TABLE == USER SYMBOLS 


10334 
9414 


1013* 


9424 
9394 


257 


1105 


600 608 616 623 631 642 
727 740 748 757 762 768 
870 883 


10344 
975 1050 1052 


715* 7694 773* 782* 785* 795* 
837* 848* 860* 861* 873* 874* 


958 966 9844 994 
965* 9834 998s 1000* 


2a 
oo 
Mr 
VIG 


1030 
*  1079* 


10364 


259 261 263 265 267 269 


651 
780 


8C5* 


1089 
1084* 


271 


802 


806* 


1086 


273 


SEQ 0024 


814% 


275 
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764 855 68 81 899 911 914 929 947 
976 1031 11224 11264 11344 113584 11414 
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CROSS REFERENCE TABLE == MACRO NAMES SEQ 0026 





B 3 
-MAIN. MACY11 eet “ape 14:52 PAGE 


30 
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- ABS. 004652 000 


ERRORS DETECTED: 0 


CZDRIB.BIN, CZDRIB. SEQ/CRF/SOL/NL : TOC=SYSMAC.SML,CZDRIB.P11 
RUN-TIME: 8 9 .4 SECONDS 

RUN-TIME RATIO: 359/18=19.8 

CORE USED: 31K (61 PAGES) 





